From a79a8845a8d3229825077d29776630e7b3ac4e6c Mon Sep 17 00:00:00 2001 From: Jeremy Bryant Date: Mon, 4 Mar 2024 23:38:06 +0000 Subject: [PATCH] Remove unnecessary :group attributes * which-key.el: Remove :group 'which-key in defcustoms. (which-key-idle-delay): (which-key-idle-secondary-delay): (which-key-echo-keystrokes): (which-key-max-description-length): (which-key-min-column-description-width): (which-key-add-column-padding): (which-key-unicode-correction): (which-key-dont-use-unicode): (which-key-separator): (which-key-ellipsis): (which-key-prefix-prefix): (which-key-compute-remaps): (which-key-replacement-alist): (which-key-allow-multiple-replacements): (which-key-show-docstrings): (which-key-highlighted-command-list): (which-key-special-keys): (which-key-buffer-name): (which-key-show-prefix): (which-key-popup-type): (which-key-min-display-lines): (which-key-max-display-columns): (which-key-side-window-location): (which-key-side-window-slot): (which-key-side-window-max-width): (which-key-side-window-max-height): (which-key-frame-max-width): (which-key-frame-max-height): (which-key-allow-imprecise-window-fit): (which-key-show-remaining-keys): (which-key-sort-order): (which-key-sort-uppercase-first): (which-key-paging-prefixes): (which-key-paging-key): (which-key-use-C-h-commands): (which-key-show-early-on-C-h): (which-key-is-verbose): (which-key-preserve-window-configuration): (which-key-hide-alt-key-translations): (which-key-delay-functions): (which-key-allow-regexps): (which-key-inhibit-regexps): (which-key-show-transient-maps): (which-key-init-buffer-hook): --- which-key.el | 45 --------------------------------------------- 1 file changed, 45 deletions(-) diff --git a/which-key.el b/which-key.el index 9623c729b92..40cb6ba99c1 100644 --- a/which-key.el +++ b/which-key.el @@ -61,7 +61,6 @@ This variable should be set before activating `which-key-mode'. A value of zero might lead to issues, so a non-zero value is recommended (see https://github.com/justbur/emacs-which-key/issues/134)." - :group 'which-key :type 'float :version "1.0") @@ -70,7 +69,6 @@ recommended This makes it possible to shorten the delay for subsequent popups in the same key sequence. The default is for this value to be nil, which disables this behavior." - :group 'which-key :type '(choice float (const :tag "Disabled" nil)) :version "1.0") @@ -84,7 +82,6 @@ This only applies if `which-key-popup-type' is minibuffer or `which-key-show-prefix' is echo. It needs to be less than `which-key-idle-delay' or else the keystroke echo will erase the which-key popup." - :group 'which-key :type 'float :version "1.0") @@ -95,7 +92,6 @@ characters), a float (use that fraction of the available width), or a function, which takes one argument, the available width in characters, and whose return value has one of the types mentioned before. Truncation is done using `which-key-ellipsis'." - :group 'which-key :type '(choice (const :tag "Disable truncation" nil) (integer :tag "Width in characters") (float :tag "Use fraction of available width") @@ -104,13 +100,11 @@ before. Truncation is done using `which-key-ellipsis'." (defcustom which-key-min-column-description-width 0 "Every column should at least have this width." - :group 'which-key :type 'natnum :version "1.0") (defcustom which-key-add-column-padding 0 "Additional spaces to add to the left of each key column." - :group 'which-key :type 'integer :version "1.0") @@ -127,7 +121,6 @@ contributed by any wide unicode characters to be up to one additional ASCII character in the which-key buffer. Increase this number if you are seeing characters get cutoff on the right side of the which-key popup." - :group 'which-key :type 'integer :version "1.0") @@ -135,7 +128,6 @@ of the which-key popup." "If non-nil, don't use any unicode characters in default setup. For affected settings, see `which-key-replacement-alist', `which-key-ellipsis' 'which-key-separator'." - :group 'which-key :type 'boolean :version "1.0") @@ -144,7 +136,6 @@ For affected settings, see `which-key-replacement-alist', `which-key-ellipsis' "Separator to use between key and description. Default is \" → \", unless `which-key-dont-use-unicode' is non nil, in which case the default is \" : \"." - :group 'which-key :type 'string :version "1.0") @@ -154,14 +145,12 @@ nil, in which case the default is \" : \"." Default is \"…\", unless `which-key-dont-use-unicode' is non nil, in which case the default is \"..\". This can also be the empty string to truncate without using any ellipsis." - :group 'which-key :type 'string :version "1.0") (defcustom which-key-prefix-prefix "+" "Prefix string to indicate a key bound to a keymap. Default is \"+\"." - :group 'which-key :type 'string :version "1.0") @@ -169,7 +158,6 @@ Default is \"+\"." "If non-nil, show remapped commands. This applies to commands that have been remapped given the currently active keymaps." - :group 'which-key :type 'boolean :version "1.0") @@ -211,7 +199,6 @@ the key binding is ignored by which-key. Finally, you can multiple replacements to occur for a given key binding by setting `which-key-allow-multiple-replacements' to a non-nil value." - :group 'which-key :type '(alist :key-type (cons (choice regexp (const nil)) (choice regexp (const nil))) :value-type (cons (choice string (const nil)) @@ -224,7 +211,6 @@ When non-nil, this allows a single key binding to match multiple patterns in `which-key-replacement-alist'. When nil, only the first match is used to perform replacements from `which-key-replacement-alist'." - :group 'which-key :type 'boolean :version "1.0") @@ -235,7 +221,6 @@ break. If you set this variable to the symbol docstring-only, then the command's name with be omitted. You probably also want to adjust `which-key-max-description-length' at the same time if you use this feature." - :group 'which-key :type '(radio (const :tag "Do not show docstrings" nil) (const :tag "Add docstring to command names" t) @@ -249,7 +234,6 @@ matching command names and use `which-key-highlighted-command-face' for any matching names. If the element is a cons cell, it should take the form (regexp . face to apply)." - :group 'which-key :type '(repeat (choice string (cons regexp face))) :version "1.0") @@ -259,13 +243,11 @@ They also have `which-key-special-key-face' applied to them. This is disabled by default. An example configuration is \(setq which-key-special-keys \\='(\"SPC\" \"TAB\" \"RET\" \"ESC\" \"DEL\")\)" - :group 'which-key :type '(repeat string) :version "1.0") (defcustom which-key-buffer-name " *which-key*" "Name of which-key buffer." - :group 'which-key :type 'string :version "1.0") @@ -273,7 +255,6 @@ is disabled by default. An example configuration is "Whether to and where to display the current prefix sequence. Possible choices are echo for echo area (the default), left, top and nil. Nil turns the feature off." - :group 'which-key :type '(radio (const :tag "Left of the keys" left) (const :tag "In the first line" top) (const :tag "In the last line" bottom) @@ -284,7 +265,6 @@ and nil. Nil turns the feature off." (defcustom which-key-popup-type 'side-window "Supported types are minibuffer, side-window, frame, and custom." - :group 'which-key :type '(radio (const :tag "Show in minibuffer" minibuffer) (const :tag "Show in side window" side-window) (const :tag "Show in popup frame" frame) @@ -293,14 +273,12 @@ and nil. Nil turns the feature off." (defcustom which-key-min-display-lines 1 "Minimum number of horizontal lines to display in the which-key buffer." - :group 'which-key :type 'integer :version "1.0") (defcustom which-key-max-display-columns nil "Maximum number of columns to display in the which-key buffer. A value of nil means don't impose a maximum." - :group 'which-key :type '(choice integer (const :tag "Unbounded" nil)) :version "1.0") @@ -310,7 +288,6 @@ Should be one of top, bottom, left or right. You can also specify a list of two locations, like (right bottom). In this case, the first location is tried. If there is not enough room, the second location is tried." - :group 'which-key :type '(radio (const right) (const bottom) (const left) @@ -330,7 +307,6 @@ specified side. A negative value means use a slot preceding (that is, above or on the left of) the middle slot. A positive value means use a slot following (that is, below or on the right of) the middle slot. The default is zero." - :group 'which-key :type 'integer :version "1.0") @@ -338,7 +314,6 @@ the right of) the middle slot. The default is zero." "Maximum width of which-key popup when type is side-window. This variable can also be a number between 0 and 1. In that case, it denotes a percentage out of the frame's width." - :group 'which-key :type 'float :version "1.0") @@ -346,19 +321,16 @@ it denotes a percentage out of the frame's width." "Maximum height of which-key popup when type is side-window. This variable can also be a number between 0 and 1. In that case, it denotes a percentage out of the frame's height." - :group 'which-key :type 'float :version "1.0") (defcustom which-key-frame-max-width 60 "Maximum width of which-key popup when type is frame." - :group 'which-key :type 'integer :version "1.0") (defcustom which-key-frame-max-height 20 "Maximum height of which-key popup when type is frame." - :group 'which-key :type 'integer :version "1.0") @@ -369,13 +341,11 @@ this on may help. See https://github.com/justbur/emacs-which-key/issues/130 and https://github.com/justbur/emacs-which-key/issues/225." - :group 'which-key :type 'boolean :version "1.0") (defcustom which-key-show-remaining-keys nil "Show remaining keys in last slot, when keys are hidden." - :group 'which-key :type '(radio (const :tag "Yes" t) (const :tag "No" nil)) :version "1.0") @@ -394,7 +364,6 @@ are See the README and the docstrings for those functions for more information." - :group 'which-key :type '(choice (function-item which-key-key-order) (function-item which-key-key-order-alpha) (function-item which-key-description-order) @@ -406,20 +375,17 @@ information." "If non-nil, uppercase comes before lowercase in sorting. This applies to the function chosen in `which-key-sort-order'. Otherwise, the order is reversed." - :group 'which-key :type 'boolean :version "1.0") (defcustom which-key-paging-prefixes '() "Enable paging for these prefixes." - :group 'which-key :type '(repeat string) :version "1.0") (defcustom which-key-paging-key "" "Key to use for changing pages. Bound after each of the prefixes in `which-key-paging-prefixes'" - :group 'which-key :type 'string :version "1.0") @@ -439,7 +405,6 @@ Bound after each of the prefixes in `which-key-paging-prefixes'" Normally `help-char' after a prefix calls `describe-prefix-bindings'. This changes that command to a which-key paging command when which-key-mode is active." - :group 'which-key :type 'boolean :version "1.0") @@ -456,13 +421,11 @@ using C-h. Note that `which-key-idle-delay' should be set before turning on `which-key-mode'." - :group 'which-key :type 'boolean :version "1.0") (defcustom which-key-is-verbose nil "Whether to warn about potential mistakes in configuration." - :group 'which-key :type 'boolean :version "1.0") @@ -473,8 +436,6 @@ shown and restore it after which-key buffer is hidden. It prevents which-key from changing window position of visible buffers. Only takken into account when popup type is side-window." - :group - 'which-key :type 'boolean :version "1.0") @@ -544,7 +505,6 @@ These translations are not relevant most of the times since a lot of terminals issue META modifier for the Alt key. See http://www.gnu.org/software/emacs/manual/html_node/emacs/Modifier-Keys.html" - :group 'which-key :type 'boolean :version "1.0") @@ -561,7 +521,6 @@ this list to return a value is the value that is used. The delay time is effectively added to the normal `which-key-idle-delay'." - :group 'which-key :type '(repeat function) :version "1.0") @@ -570,7 +529,6 @@ The delay time is effectively added to the normal When non-nil, for a key sequence to trigger the which-key popup it must match one of the regexps in this list. The format of the key sequences is what is produced by `key-description'." - :group 'which-key :type '(repeat regexp) :version "1.0") @@ -579,7 +537,6 @@ key sequences is what is produced by `key-description'." When non-nil, for a key sequence to trigger the which-key popup it cannot match one of the regexps in this list. The format of the key sequences is what is produced by `key-description'." - :group 'which-key :type '(repeat regexp) :version "1.0") @@ -589,7 +546,6 @@ the key sequences is what is produced by `key-description'." More specifically, detect when `overriding-terminal-local-map' is set (this is the keymap used by `set-transient-map') and display it." - :group 'which-key :type 'boolean :version "1.0") @@ -601,7 +557,6 @@ it." ;; Hooks (defcustom which-key-init-buffer-hook '() "Hook run when which-key buffer is initialized." - :group 'which-key :type 'hook :version "1.0") -- 2.30.2